proc pgcd:
	dup:
	while(0 <> istrue:)
		swap:
		over:
		mod:
		dup:
	endwh
	drop:
	abs:
endp